0 REM CHECKSUMS
1 POKE53280,7:POKE53281,6
2 PRINT"[147][198][213][206] [199][210][193][208][200][201][195][211] [208][210][207][199][210][193][205] [195][200][197][195][203][197][210]":PRINT"FOR SHAREWARE VERSION 342"
3 GOSUB39:PRINT"[212][200][201][211] [208][210][207][199][210][193][205] [215][201][204][204] [210][213][206] [193] [195][200][197][195][203][211][213][205]":PRINT"[207][206] [193][204][204] [214][201][212][193][204] [208][210][207][199][210][193][205]";
4 PRINT" [198][201][204][197][211] [193][206][196] ":PRINT"[206][207][212][201][198][217] [217][207][213] [207][198] [193][206][217] [205][201][211][211][201][206][199] [207][210]"
5 PRINT"[208][207][211][211][201][194][204][217] [195][207][210][210][213][208][212] [198][201][204][197][211]. [193][204][211][207]":PRINT"[195][200][197][195][203][211] [212][200][197] [196][197][205][207] [198][201][204][197][211]."
6 PRINT"[201][198] [217][207][213] [199][197][212] [206][207] [197][210][210][207][210][211][146], [212][200][197][206] [212][200][197]":PRINT"[208][210][207][199][210][193][205] [211][200][207][213][204][196] [210][213][206] [207][203]."
7 PRINT"[201][206][211][197][210][212] [208][210][207][199][210][193][205] [196][201][211][203] [201][206] [196][210][201][214][197]":PRINT"[193][206][196] [208][210][197][211][211] [210][197][212][213][210][206]."
8 POKE198,0:WAIT198,1:Z$=CHR$(.)
9 F$="[198][199][205].up342*,P,R":CK=540440:EF=18:XO=002:GOSUB29
10 F$="[198][199][205].lo342*,P,R":CK=708756:EF=27:XO=224:GOSUB29
11 F$="[198][199][205].bc342*,P,R":CK=354439:EF=21:XO=95:GOSUB29
12 F$="[198][199][205].[211][208]3***,P,R":CK=7774:EF=3:XO=228:GOSUB29
13 F$="[198][199][205].[198][204]340*,P,R":CK=133255:EF=21:XO=191:GOSUB29
14 CK=305:F$="[198][199][205].in342*,P,R":GOSUB40:GOSUB32
15 CK=305:F$="[198][199][205].au342*,P,R":GOSUB40:GOSUB32
16 F$="[198]/[199][211]342***,P,R":CK=1331736:EF=60:XO=122:GOSUB29
17 F$="RONZBOOT.S342*,P,R":CK=578475:EF=23:XO=51:GOSUB29:PRINT"[195][200][197][195][203] [196][197][205][207] [198][201][204][197][211] [217]/[206]?";
18 POKE204,.:POKE207,.:POKE198,.:WAIT198,1:GETA$:POKE207,.:POKE204,1:PRINT:IFA$<>"Y"THEN28
19 F$="D.1*,P,R":CK=86583:EF=5:XO=115:GOSUB29
20 F$="D.2*,P,R":CK=73238:EF=5:XO=86:GOSUB29
21 F$="D.3*,P,R":CK=53542:EF=5:XO=118:GOSUB29
22 F$="D.4*,P,R":CK=77620:EF=5:XO=230:GOSUB29
23 F$="D.5*,P,R":CK=58787:EF=5:XO=227:GOSUB29
24 F$="D.6*,P,R":CK=51855:EF=5:XO=149:GOSUB29
25 F$="D.7*,P,R":CK=78171:EF=5:XO=133:GOSUB29
26 F$="D.8*,P,R":CK=55059:EF=5:XO=213:GOSUB29
27 F$="D.9*,P,R":CK=79181:EF=5:XO=57:GOSUB29
28 PRINT,"[195][200][197][195][203] [195][207][205][208][204][197][212][197][196]":PRINT,"[198][201][204][197][211] [205][201][211][211][201][206][199]:"FM:PRINT,"[197][210][210][207][210][211]:"ER:END
29 SYS49152:OPEN3,8,0,F$:POKE157,0:POKE185,0:POKE780,0:POKE781,0:POKE782,20
30 SYS65493:CLOSE3:FORX=250TO252:POKEX,0:NEXT:POKE787,EF:SYS49178:GOSUB41
31 C=PEEK(250)+256*PEEK(251)+65536*PEEK(252)
32 IFC=CKANDPEEK(679)=XOTHENPRINTTAB(4)F$" [186][207][203][193][217]":RETURN
33 PRINTTAB(2)"[197][210][210][207][210] [201][206] "F$;C;PEEK(679):ER=ER+1:IFE>19THENPRINT" ";E;E$:FM=FM+1
34 RETURN
35 DATA 169,0,133,253,169,20,133,254,162,68,160,0,169,0,145,253,200,208,251
36 DATA 230,254,202,208,242,96,234,169,20,133,254,169,0,133,253,141,167,2
37 DATA 174,19,3,160,0,177,253,72,77,167,2,141,167,2,104,24,101,250,133,250
38 DATA 144,6,230,251,208,2,230,252,200,208,230,230,254,202,208,223,96
39 FORX=49152TOX+73:READA:POKEX,A:NEXT:RETURN
40 OPEN2,8,2,F$:GET#2,A$,B$:CLOSE2:C=ASC(A$+Z$)+ASC(B$+Z$):XO=.:POKE679,.
41 OPEN1,8,15:INPUT#1,E,E$,CX,DX:CLOSE1:RETURN
42 IFE>20THENPRINT" "E;E$;" "F$:FM=FM+1:RETURN
43 PRINTTAB(4)F$" [186][207][203][193][217]":RETURN